home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g24.bas < prev    next >
BASIC Source File  |  1991-10-18  |  413b  |  15 lines
  1. 100 ' G24 T.WAKAMATSU
  2. 110 PI=3.14159!
  3. 120 A=130:B=65:V=9:W=4:Z=6:CLS:C=W
  4. 130 FOR T=0 TO 2*PI STEP PI/96
  5. 140   C=V-C
  6. 150   CIRCLE(145*COS(B*T)+320,145*SIN(A*T)+240),90,%C
  7. 160 NEXT T
  8. 170 FOR D=1 TO 2000:NEXT D
  9. 180 FOR T=0 TO 2*PI STEP PI/96
  10. 190   CIRCLE(145*COS(B*T)+320,145*SIN(A*T)+240),90,%Z
  11. 200 NEXT T
  12. 210 FOR T=0 TO 2*PI STEP PI/96
  13. 220   CIRCLE(145*COS(B*T)+320,145*SIN(A*T)+240),90,0
  14. 230 NEXT T
  15.